home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / latex209 / contrib / feynman / feynman.shar / FEYNMAN.1.0 / SCALARSETUP.tex < prev    next >
Text File  |  1992-05-13  |  2KB  |  40 lines
  1. %                   SCALARSETUP(9).TEX
  2. % CALLED BY FEYNMAN(34).
  3. % USED FOR GENERATING SCALAR LINES IN  FEYNMAN DIAGRAMS IN LATEX.
  4. \newcount\scalarlength
  5. \newcount\scalarlengthx
  6. \newcount\scalarlengthy
  7. \newcount\scalarfrontx  %}(x,y) co-ord of left of scalar
  8. \newcount\scalarfronty  %}
  9. \newcount\scalarbackx
  10. \newcount\scalarbacky
  11. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  12. \gdef\ALLscalar{
  13. \global\scalarfrontx=\particlefrontx   % READ IN FROM FEYNMAN \selectscalar
  14. \global\scalarfronty=\particlefronty   % READ IN FROM FEYNMAN \selectscalar
  15. % \gaplength=850  \seglength=1416  % Default defined in FEYNMAN.TEX.
  16. \numlineparts = 1      \numupperunits=\unitboxnumber
  17. \ifcase\LINECONFIGURATION
  18. \global\upperlineadjx=-200     \global\upperlineadjy=0 
  19. \slanttest(\seglength,\gaplength)   %SEE FEYNMAN22.TEX.
  20. \gdef\upperunitbox{\line(\XDIR,\YDIR){\seglength}}
  21. \else \UNIMPERROR % etc.
  22. \fi
  23. \global\unitboxwidth=\seglength  \global\advance\unitboxwidth by \gaplength
  24. \global\multiply \unitboxwidth by \XDIR
  25. \global\unitboxheight=\seglength  \global\advance\unitboxheight by \gaplength
  26. \global\multiply \unitboxheight by \YDIR
  27. \global\particleadjustx=\gaplength \global\multiply\particleadjustx by \XDIR 
  28. \global\particleadjusty=\gaplength \global\multiply\particleadjusty by \YDIR
  29. \negate\particleadjustx   \negate\particleadjusty   % SUBTRACT from linelength
  30. \setparticle  %SCALAR8 
  31. \global\scalarlengthx=\particlelengthx  %SCALAR8 
  32. \global\scalarlengthy=\particlelengthy  %SCALAR8 
  33. % Warning message for overly-long lines.  See FEYNMAN for negative-lengths.
  34. \ifnum\boxlengthx > 50000
  35. \message{   *** WARNING *** Scalar of length in excess of 50000cp requested!}\fi
  36. \ifnum\boxlengthy > 50000
  37. \message{   *** WARNING *** Scalar of length in excess of 50000cp requested!}\fi
  38. \global\scalarbackx=\pbackx      \global\scalarbacky=\pbacky   %SCALAR8 
  39. }
  40.